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Guida per l'input dei programmi versioni 

06 plus/4 - VIC 20 


Notate che i listati contensono 'pa¬ 
role' racchiuse tra parentesi graffe 
/ /. Tali parole rappresentano carat¬ 
teri di controllo come mostrato nel 
sottostante riquadro. Se sono pre¬ 
cedute da un numero, questo indi¬ 
ca il numero di volte che quel tasto 
deve essere premuto. Se il simbolo 
è sottolineato deve essere premuto 
contemporaneamente a SHIFT men¬ 
tre se è racchiuso da l()] deve esse- 


ICI.R) 
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S 
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• RED) 

ma 

0 
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Per ricevere gli arretrati di i. 

K 


re premuto contemporaneamente 
al tasto COMMODORE. Inoltre, se 
tra parentesi si trova un carattere 
alfabetico "solitario questo dovrà 
essere premuto contemporanea¬ 
mente al tasto CONTROL. 

Con questo sistema di codifica, sa¬ 
rà molto più agevole copiare i lista¬ 
ti senza faticose e dubbie interpre¬ 
tazioni di caratteri grafici e di con¬ 
trollo del cursore o dei colori. 


CEBO 



BO 

□ 
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!<«>l 
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■ ■ 
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ma 

□ 

(PII 

DI 


ma 
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Si 
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(C 

KB 

30 

15 
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IF6I 

GB 

SI 
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CB 

II 
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OD 

■ 

30 
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compilare il seguente tagliando: 


J .soft 


Compitare ed inviare in busta chiusa a: 
viale Restelli, 5 - 20124 Milano - Tel. 02/6888228-683797-6880841-2-3 


Nome _ 

Cognome 


Indirizzo 


CAP - Città 


Prov 


Desidero ricevere i seguenti numeri arretrati di 



Anno 

Anno_ 


a L 2 000 cad per un totale di L 


a mezzo 


□ assegno allegato □ contanti allegati 

K 
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Questo articolo è rivolto esclusiva- 
mente ai "Commodoriani " che usa¬ 
no il VIC 20, il CI 6 o il Plus/4. 

Se non l'hai sia fatto, memorizza e 
salva su nastro o disco la versione 
di STOP BUG per il tuo computer. 
Questo prosramma' ti permette, 
una volta caricato ed attivato con 
RUN, di disitare i listati di Papersoft 
senza introdurre errori di battitu¬ 
ra. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 
parola: "■.rem" seguita da un nume¬ 
ro, detto checksum,- NON COPIA¬ 
RE QUESTA PARTE DELLA LINEA, 
che serve solo per tua informazio¬ 
ne. Quando STOP BUG è in funzio¬ 
ne, infatti, tutte le volte che premi 
il tasto RETURN dopo aver digitato 
una linea di programma, appare 
nell'angolo superiore sinistro dello 
schermo un numero, che deve 
coincidere con il checksum da noi 
pubblicato (sempre che tu non ab¬ 
bia usato comandi abbreviati, co¬ 
me ? per PRINT). 

Usando STOP BUG tieni conto del 


fatto che gli spazi non influiscono 
sul checksum, per cui fai particola¬ 
re attenzione alle istruzioni PRINT 
dove spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate. 

Un altro metodo per utilizzare 
STOP BUG, soprattutto se sei abi¬ 
tuato ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo RETURN su ogni linea. 

Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che STOP BUG 
interferisca,- al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare STOP BUG prima 
di ricaricare il tuo programma. 

Per disabilitare STOP BUG premi 
RUN/STOP e RESTORE (su V/C 20) 
oppure RUN/STOP e RESET (su 
Ciò 0 PLUS/4). 

Per riattivarlo batti: 

SYS PEEK (56)*256 per il V/C 20; 
SYS 16128 perii CI6 e il Plus/4. 


4 




STOP BUG per CI 6 c PLUS/4 


100 POKE55,0 :POKE56,63 :PRINT"{CLR}ATTENDERE PREGO..." 

110 FORI = 16128TO16260 :READA:CK=CK+A:POKEI,A :NEXT 
120 IFCKOl 4 248THENPRINT" {GIU ' } ERRORE NELLE ISTRUZIONI- DA 
TA": END 

130 SYSl6128 :PRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIV 
ATO.": NEW 

200 DATAI 73,34,3,201,32,208,1 ,96,1 41 
210 DATA33,63,173,35,3,141,34,63,169 
220 DATA32,141,34,3,169,63,141,35,3 
230 DATAI 69,0,1 33,6,96,32,232,235,1 33 
240 DATA3,134,4,132,5,8,201,13,240 

2 50 DATAI 7,201,32,240,5,24,101,6,1 33 
260 DATA6,165,3,166,4,164,5,40,96 

270 DATAI 69,1 3,32,210,255,165,205,1 41 ,251 
280 DATA3,206,251,3,169,0,133,207,169 
290 DATAI 9,32,21 0,255,169,1 8,32,210,255 
300 DATAI 69,58,32,210,2 55,166,6,169,0 
310 DATAI 33,6,1 72,33,63,1 92,2 32,208,6 
320 DATA32,95,164,76,117,63,32,7,208 

3 30 DATAI 69,32,32,21 0,2 55,32,21 0,2 55,1 73 
340 DATA251,3,133,205,76,55,63 

STOP BUG PER VIC 20 


100 POKE55,0 :POKE56,PEEK(56)- 1:R=PEEK(56)*256:PRINT"{CLR} 
ATTENDERE PREGO..." 

110 FORI=RTOR+132 :READA:CK=CK + A:IFA = 999THENA=R/256 
120 POKEI,A:NEXT 

130 IFCK< > 2 268 9THENPKINT"{GIU 1 )ERRORE NELLE ISTRUZIONI DA 
TA": END 

140 SYS(R):PRINT"{CLR){ 2 GIU'}(RVS}STOP BUG{OFF} ATTIVAI 
O.": NEW 

200 DATAI 73,36,3,201 , 32,208,1 ,96,1 4 1 
210 DATA33,999,173,37,3,141,34,999,169 
220 DATA32,141,36,3,169,999,141,37,3 
2 30 DATAI 69,0, 1 3 3,254,96,32,87,241 , 1 33 
240 DATA251,134,252,132,253,8,201,13,240 
2 50 DATAI 7,201 ,32,240,5,24,101,254,133 
260 DATA254,1 6 5,251 ,166,252,164,253,40,96 
270 DATAI 69,1 3,3 2,21 0,2 55, 1 65,214,1 41 , 251 
280 DATA3,206,251,3,169,0,133,216,169 
2 90 DATAI 9,32,21 0,2 55,1 69,1 8,32,21 0,2 55 
300 DATAI 69,58,32,21 0,2 55,1 66,2 54,169,0 
310 DATA!33,254,172,33,999,192,87,208,6 
320 DATA32,205,189,76,117,999,32,205,221 
330 DATAI 69,32,32,21 0,255,32,21 0,255,1 73 
340 DATA251 ,3,1 33,214,76,55^.999 
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? 

| Mini-Mancala 


Questo prosrammd trae origine da 
un antico gioco arabo. Ci sono 4 
tazze contrassegnate dalle lettere 
A,B,C,D: due, la A e la B, apparten¬ 
gono al computer, le altre due, la 
Ce la D, sono tue. 

All'inizio del gioco tutte le tazze 
contengono 2 pedine. A turno i 
giocatori, cioè tu e il computer, de¬ 
vono prendere le pedine contenu¬ 
te in una delle proprie tazze e di- 
stribure una ad una in senso antio¬ 
rario nelle altre tazze. Ci dovrà es¬ 
sere sempre almeno una tazza 


vuota in quanto le pedine non 
possono essere rimesse nella tazza 
da cui sono state prese. 

Vince chi riesce a portare tutte le 
pedine in una delle proprie tazze. 
Puoi scegliere il livello di difficoltà 
(da 7 a 3, 7 è il più semplice) e chi 
deve iniziare per primo. Non sco¬ 
raggiarti per gli insuccessi iniziali 
perché il gioco è realmente molto 
difficile,- con un po' di pazienza, 
tuttavia, riuscirai a mettere a punto 
una strategia vincente. 


10 REM ‘MINI-MANCALA* 



: rem 

224 

20 COLOR4,2,2:COLORO,10,3 



: rem 

1 66 

30 DIMB(3),SU(3) 



: rem 

91 

40 DEF FNSP (X) =1 5+80* (XAND2) 4-6* (XANDl ) 



: rem 

89 

50 FORI=0TO3 



: rem 

216 

60 B ( I ) =2 



: rem 

1 77 

70 READSU(I) 



: rem 

1 97 

80 NEXT 



: rem 

167 

90 DATA2,0,3,1 



: rem 

205 

100 E$ = " { HOME } { 17 GIU'H 7 DES } " 



: rem 

1 22 

110 GOTO560 



: rem 

1 02 

120 REM ‘DISEGNO SCHERMO* 



: rem 

229 

130 PRINT"{CLR}[<6>]{GIU'}"SPC(12)"{RVS} 

MINI { 

2 *}MANCAL 

A { BLK } " 



: rem 

1 88 

140 PRINT 



: rem 

34 

150 PRINTSPC(11)" A"SPC(13)"B" 



: rem 

98 

160 PRINTSPC(11)"{ 2 SPAZI}[<A>]{ 5 C}[<R>] 

Il 5 

C} 1<S>] 

II 

• 



: rem 

1 75 

170 PRINTSPC(11)"{ 2 SPAZl}-{ 5 SPAZI}-{ 

5 

SPAZI}-" 





: rem 

1 53 

180 PRINTSPC(11)"{ 2 SPAZI}-{ 2 SPAZI}2{ 

2 

SPAZI}- 


{ 2 SPAZI}2{ 2 SPAZI}-" 



: rem 

254 

190 PRINTSPC(11)"{ 2 SPAZI}- { 5 SPAZl}-{ 

5 

SPAZI}-" 


• 



: rem 

1 55 

200 PRINTSPC(11)"{ 2 SPAZI}[<Q>){ 5 C}+{ 

5 

C}[<W>] " 





:rem 

21 1 
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21 0 

PRINTSPC(11)"{ 2 SPAZI}-{ 5 SPAZI}-{ 5 SPAZI}-" 




: rem 

1 48 

220 

PRINTSPC(11)"{ 2 SPAZI}-{ 2 SPAZI}2{ 2 SPAZI}- 



{ 2 SPAZI}2{ 2 SPAZI}-" 

: rem 

249 

230 

PRINTSPC(11)"{ 2 SPAZI}-{ 5 SPAZl}-{ 5 SPAZI}-" 




; rem 

1 50 

240 

PRINTSPC(11)"{ 2 SPAZI}[<Z>]{ 5 C}[<E>]{ 5 

C}[<X>] 

!" 



; rem 

1 85 

250 

PRINTSPC(11)" C'SPC(13)"D" 

; rem 

1 03 

260 

RETURN 

:rem 

1 20 

2 70 

REM *IMPUT MOSSA* 

: rem 

227 

280 

PRINTE$"MUOVI DALLA TAZZA (C/D){ 2 SPAZI}{ 

2 SIN}"; 
:rem 200 

290 

INPUTSS 

: rem 

162 

300 

IFS$=""THEN280 

: rem 

227 

310 

S=-2 *(S$ = "C")- 3 *(S$ = "D") 

: rem 

80 

320 

IFS=OORB(S)=0THEN2 80 

: rem 

1 61 

330 

RETURN 

: rem 

1 1 8 

340 

REM *MOSSA COMPUTER* 

: rem 

1 93 

350 

PRINTES"{ 5 SPAZI}ORA TOCCA A ME{ 7 SPAZI}" 

:rem 

241 

360 

FORDE=lTO500:NEXTDE 

: rem 

1 77 

370 

IFLE<3ANDRND(0)*LE<.6THENS=INT(RND(0)*2):GOTO400 

: rem 

127 

380 

Q=B(2) +1 0 * ( B ( 1 ) +10*B(0) ) 

: rem 

50 

390 

S=1 

: rem 

93 

400 

IFQ=1 430RQ=1 3 40RQ= 611ORQ=116THENS = 0 

:rem 

141 

41 0 

IFB(S)=0THENS=1-S 

; rem 

231 

420 

PRINTE$"{ 3 SPAZI}MUOVO DALLA TAZZA "MID$(" 

AB",S+1 
; rem 

,1) 

1 56 

430 

RETURN 

: rem 

119 

440 

REM ‘MOVIMENTO ANTIORARIO* 

: rem 

1 34 

4 50 

D=S 

: rem 

1 09 

460 

FORC=lTOB(3) 

; rem 

1 87 

470 

FORDE=lT0400 :NEXTDE 

: rem 

1 78 

480 

D=SU(D) 

: rem 

90 

490 

IFD = STHEN4 80 

: rem 

203 

500 

B(S)=B(S)- 1 

: rem 

252 

510 

PRINT"{HOME}{ 6 GIU'}"SPC(FNSP(S)); B ( S ) 

: rem 

19 

520 

B(D)=B(D)+1 

: rem 

222 

530 

PRINT"{HOME} { 6 GIU 1 }"SPC(FNSP(D));B(D) 

: rem 

247 

540 

NEXTC 

: rem 

27 

550 

RETURN 

: rem 

1 22 

560 

REM ‘PROGRAMMA PRINCIPALE* 

: rem 

96 

570 

GOSUBl20 

: rem 

1 75 

580 

PRINTE$"{ 4 SPAZI}LIVELLO{ 2 SPAZI}(1 - 3)”; 

: rem 

11 

590 

INPUTLE 

: rem 

1 91 

600 

IFLE<lORLE>3THEN580 

: rem 

1 46 

61 0 

PRINTE$"VUOI INIZIARE TU (S/N)"; 

: rem 

116 

620 

INPUTANS 

: rem 

21 9 

630 

IFAN$ = "N"THEN6 80 

: rem 

1 1 9 

640 

IFAN$ < >"S"THEN61 0 

:rem 

1 79 
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650 

GOSUB270 


: rem 

1 80 

660 

GOSUB440 


: rem 

1 80 

670 

IFB(3)=8THENPRINTES" { 

8 SPAZI)HAI 

VINTO!{ 8 SPAZI) 

" : G 


OTO720 


: rem 

95 

680 

GOSUB340 


: rem 

181 

690 

GOSUB440 


: rem 

1 83 

700 

IFB(0) =8THENPRINTES"{ 

8 SPAZI}HO 

VINTO!{ 9 SPAZI}" 

: GO 


TO72 0 


: rem 

27 

710 

GOTO650 


: rem 

108 

720 

PRINT:END 


: rem 

55 


? 

:■ Escher 


Questo prosramma si ispira alle 
creazioni del famoso artista grafico 
M.C. Escher. Seguendo le istruzioni 
che compaiono sullo schermo, uti¬ 
lizzate i caratteri mostrati nelle li¬ 
nee 1 000-1200, vale a dire i simboli 
grafici ottenibili tramite i tasti SHIFT 
e Commodore, per creare spetta¬ 
colari disegni. I caratteri vengono 
raggruppati in " quadrati ' di cui è 

10 MK=20 
20 PRINT"{CLR} " 

30 INPUT"COLORE CARATTERI (1 
NT" { 2 SU}":GOTO30 
40 INPUT"LUMINANZA CARATTERI 
INT"{ 2 SU}":GOT040 
50 COLORI,C1,C 2 
60 INPUT"{GIÙ 1 JCOLORE SFONDO 
PRINT"{ 3 SU)":GOTO60 
70 INPUT"LUMINANZA SFONDO (0 
"{ 2 SU}":GOTO70 
80 COLORO,SI ,S2 
90 INPUT"{GIU’JCOLORE BORDO 
RINT"{ 3 SU}":GOTO90 
100 INPUT"LUMINANZA BORDO (0 
"{ 2 SU}":GOTOl00 
110 COLOR4,B1 ,B2 


possibile selezionare le dimensio¬ 
ni,- i quadrati (e i simboli che li com¬ 
pongono) sono poi orientabili in 
quattro direzioni (nord-est-sud- 
ovest) ruotandoli di 90, 180 e 270 
gradi rispetto alla posizione inizia¬ 
le. Vi suggeriamo di fare molte pro¬ 
ve per imparare bene l'uso del 
programma ed ottenere gli effetti 
desiderati. 

:rem 152 
:rem 198 

16)";CI :IFC1<TORCI>16THENPRI 

:rem 187 

(0-7)";C2:IFC2<OORC2>7THENPR 

:rem 73 
:rem 86 

(1-16)SI :IFS1<10RSI>16THEN 

:rem 189 

7)";S2 :IFS2<0ORS2>7THENPRINT 

:rem 169 
: rem 120 

1-16)";B1 ; IFBI<1 ORBI>16THENP 

:rem 61 

7)";B2:1FB2<OORB2>7THENPRINT 

:rem 119 
: rem 132 
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1 20 

DIMSY (MK , 3) 

: rem 

97 

1 30 

FORCO=OTOMK 

: rem 

1 69 

1 40 

FORRl=0TO3 

: rem 

66 

1 50 

READSY(CC/Ri) 

: rem 

228 

1 60 

NEXT 

: rem 

21 4 

1 70 

NEXT 

: rem 

21 5 

1 30 

INPUT"{ 2 GIU 1 JMISURA DEL QUADRATO (2-23)" 

;S:IFS< 20RS 


>23THENPRINT"{ 4 SU}": GOTO!80 

: rem 

170 

1 90 

SX=INT(39/S)+1 

: rem 

8 

200 

SY=INT(23/S)+1 

: rem 

250 

210 

DIMDS(SX,SY) ,BS(S» S) ,RI(S,S) ,SC(S*SX,S*SY) 

: rem 

54 

220 

PRINT"{CLR}INTRODUCI I CARATTERI GRAFICI" 

: rem 

1 34 

230 

PRINT"OGNI RIGA";S;"SIMBOLI{GlU'}" 

: rem 

227 

240 

FORR=OTOS-1 

: rem 

144 

2 50 

PRINT"RIGA";R+1;TAB(7); 

: rem 

73 

260 

A$ = " " 

: rem 

1 26 

270 

INPUTA$ 

: rem 

142 

280 

A$=LEFT$(A$+"{ 23 SPAZI}",S) 

: rem 

47 

290 

FORK=OTOS-1 

: rem 

142 

300 

BS(R,K)=ASC(MIDS(A$,K+1 ,1) ) 

: rem 

139 

31 0 

NEXT 

: rem 

21 1 

320 

NEXT 

: rem 

21 2 

330 

PRINT 

: rem 

35 

340 

PRINT"ORIENTAMENTO DEI QUADRATI (N,S,E,0)" 

: rem 

52 

350 

PRINT"OGNI FILA";SX;"DIREZIONI" 

: rem 

1 96 

360 

PRINT 

: rem 

38 

370 

FORB=OTOSY-1 

: rem 

221 

380 

PRINT"FILA";B+1 ;TAB(7) ; 

: rem 

54 

390 

INPUTAS 

: rem 

145 

400 

FORA=OTOSX-1 

: rem 

21 3 

41 0 

IN$=MID$(AS,A+1,1):IFIN$<>"N"ANDIN$<>"S"ANDIN$<>" 

E"AN 


DIN$0"0"THEN850 

: rem 

1 42 

420 

DS(A,B)=-((IN$="N")+2*(IN$="E")+3*(IN$="S" 

)+4 *(IN$ = "0 


"))-l 

: rem 

71 

430 

IFDS(A,B)< OTHENDS(A,B)=0 

: rem 

92 

440 

NEXT 

: rem 

21 5 

4 50 

NEXT 

: rem 

21 6 

460 

PRINT 

: rem 

39 

470 

PRINT"[ELABORAZIONE DISEGNO]" 

: rem 

168 

480 

FORR=OTOS-1 

: rem 

150 

490 

FORK=OTOS-1 

: rem 

144 

500 

FORRl =3TO0STEP-1 

: rem 

220 

51 0 

FORCC=MKTOOSTEP-l 

: rem 

69 

520 

IFBS(K,R)=SY(CC,R1)THENC2=CC:R2=Rl:CC=0:Rl 

=0 : rem 

128 

530 

NEXT 

: rem 

21 5 

540 

NEXT 

: rem 

21 6 

550 

BS(K,R)=C2 

:rem 

251 

560 

RI(K,R)=R2 

: rem 

17 

570 

NEXT 

: rem 

21 9 

580 

NEXT 

: rem 

220 

590 

PRINT"[FONDO GRAFICO]" 

: rem 

152 


600 

FORR=OTOS-1 

: rem 

144 

61 0 

FORK=OTOS-1 

: rem 

138 

620 

FORB=OTOSY-1 

: rem 

21 9 

630 

FORA = OTOSX-1 

: rem 

21 8 

640 

ONDS(A,B)+1G0TO650,660,670,680 

: rem 

89 

650 

X=K:Y=R:GOTO690 

: rem 

175 

660 

X=S-R-1 :Y=K:GOTO690 

: rem 

142 

670 

X=S-K-1 :Y=S-R-1:GOTO690 

: rem 

109 

6 80 

X=R:Y=S-K-1 

: rem 

126 

690 

RI = (DS(A,B)+RI(R,K))AND3 

: rem 

45 

700 

SC(X+A*S,Y+B*S)=SY(BS(R,K),Rl) 

: rem 

198 

710 

NEXT 

: rem 

21 5 

720 

NEXT 

: rem 

21 6 

730 

NEXT 

: rem 

21 7 

740 

NEXT 

: rem 

21 8 

750 

PRINT"{CLR}"; 

: rem 

59 

760 

FORY=0TO23 

: rem 

82 

770 

FORX = 0TO3 9 

: rem 

89 

780 

IFSC(X,Y)>2 55THENPRINT"{RVS}:GOTO800 

: rem 

36 

790 

PRINT" {OFF} ; 

: rem 

62 

800 

PRINTCHR$(SC(X,Y)AND255) ; 

: rem 

229 

810 

NEXT 

: rem 

21 6 

820 

NEXT 

: rem 

21 7 

830 

PRINT"{DES} 

: rem 

196 

840 

GOTO840 

: rem 

113 

850 

PRINT" { 2 GIU'} INPUT ERRACI { 2 SPAZI} RI PROVA. " :END 


860 DATA32,32,32,32: REM ' 

870 DATAI 65,163,167,164:REM 1 
880 DATA212,197# 217,210:REM ’ 
890 DATAI 99,1 96,200,1 98:REM ’ 
900 DATAI 94,1 95,221 , 1 92:REM ' 
910 DATAI 80,1 83,1 70,1 75:REM * 
920 DATAI 81 , 1 84,1 82,1 85:REM ' 
930 DATAI 61,418,417,162:REM 1 
940 DATA205,206,205,206:REM ' 
950 DATA203,202,213,201:REM ' 
960 DATAI 89, 1 73,1 76,1 74 :REM ’ 
970 DATA207,208,186,204:REM " 
980 DATAI 77,171,178,1 79:REM 11 
990 DATA169,223,425,479:REM " 
1000 DATAI 90,1 88,1 72,1 87:REM 
1010 DATA209,209,209,209:REM 
1 020 DATA214,214,214,214:REM 
1 030 DATA215,215,215,215:REM 
1 040 DATA21 9,219,219,21 9:REM 
1 050 DATAI 66,422,1 66,422:REM 
1060 DATA19!,447,191,447:REM 



: rem 

112 

1 II 

: rem 

50 

’[<G>]" 

: rem 

179 

ImK 

: rem 

21 5 

’G" 

: rem 

223 

’B" 

: rem 

201 

T<H>)" 

: rem 

1 84 

1 [<J>] " 

: rem 

1 92 

1 [<K>J" 

: rem 

167 

M" 

: rem 

200 

K" 

: rem 

187 

T<X>]" 

: rem 

21 1 

O" 

: rem 

21 5 

T<e>] " 

: rem 

203 

£" 

: rem 

193 

» [<v>) " 

: rem 

244 

"Q" 

: rem 

255 

"V" 

: rem 

245 

"W" 

: rem 

251 

tl + Il 

: rem 

16 

"!<+>}" 

: rem 

21 4 

"[<B>]" 

: rem 

250 
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Merge 


è 


Questo utility permette Pi sopperi¬ 
re ad una carenza del Basic del CI 6 
e del Plus/4 per quanto riguarda 
l'editing dei programmi. Con essa, 
infatti, potrete caricare un pro¬ 
gramma Basic senza cancellare 
quello già presente in memoria (ef¬ 
fettuando quindi il "merge", cioè 
l'unione dei due programmi). 

Il programma "merge" va digitato 
e salvato PRIMA di farlo "girare"; 
chi utilizza il disk drive tolga la pa¬ 
rola REM alla linea 40. La. routine si 
attiva una volta per tutte carican¬ 
dola e dando il RUN; così facendo 
un programmino in linguaggio 
macchina viene memorizzato in 
un’area di RAM che non interferi¬ 
sce con il Basic. A questo punto, 
se si desidera "concatenare" due 
programmi Basic, uno presente in 
memoria e l'altro registrato su cas¬ 
setta o disco, è sufficiente digitare 

SYS 102410AD "nome programma’ 

(aggiungendo ",8" se si usa il disk 
drive). A caricamento effettuato 


digitate 
SYS 1048 

ed il merge sarà completato. 

Fate però attenzione ai "range" dei 
numeri di linea dei programmi da 
concatenare: se infatti essi non so¬ 
no disgiunti possono verificarsi in¬ 
convenienti molto spiacevoli. Ad 
esempio, un programma i cui nu¬ 
meri di linea vanno da 10 a 1000 
non può essere concatenato ad un 
programma il cui range sia 100- 
2000; prima di effettuare il merge 
sarà necessario rinumerare uno dei 
due programmi. Inoltre, se abbia¬ 
mo un programma A con range 10- 
500 e un programma B con range 
1000-2000, dovremo prima carica¬ 
re A e poi effettuare il merge con 
B ; infatti, dato che i programmi 
vengono caricati uno di seguito al¬ 
l'altro, se facessimo il contrario 
avremmo i numeri di linea "alti" pri¬ 
ma di quelli "bassi", e il program¬ 
ma risultante non potrebbe venir 
eseguito correttamente. 


i o 

20 

30 

40 

50 

60 


PRINT"{CLR}": FORI = 1 024T01 024 + 34 :READA:POKEI,A:C=C+A: NE 

: rem 199 

IECO 3 0 90THENPRINT "ERRORE NELLE DATA" : END : rem 228 

PRINT"PER ESEGUIRE IL MERGE:":PRINT"{GlU 1 }SYSl 024 :LOAD 
"CHR$ (34) "NOME"CHR$ (34) ; . rem -| 5 

REM PRINT",8" irern 125 

PRINT:PRINT"SYS1 048" ;rem 2 01 

DATAI 65,43,141,46,4,165,44,141,47,4,56,165,45^233,2,13 

3 ' 43 ' 165 : rem 176 






70 DATA46,233,0,133,44,96, 
,96 
80 NEW 


173,46,4,133,43,173,47,4,133,44 

:rem 192 
: rem 82 



Queste due utility permettono di 
sopperire ad alcune carenze del 
Basic del VIC per quanto riguarda 
l'editing dei programmi. Con la pri¬ 
ma routine, infatti, potrete caricare 
un programma Basic senza cancel¬ 
lare quello già presente in memoria 
(effettuando quindi il "merge", ci¬ 
oè l'unione dei due programmi). La 
seconda, invece, vi offre la possi¬ 
bilità di rinumerare le linee di un 
programma, aggiornando contem¬ 
poraneamente gli indirizzi conte¬ 
nuti nelle istruzioni di "salto “ vale 
a dire GOSUB, GOTO, ON..'. GO¬ 
TO, ecc. 

Il programma "Merge" va digitato 
e salvato PRIMA di farlo "girare"; 
chi utilizza il disk drive tolga la pa¬ 
rola REM alla linea 150. La routine 
si attiva una volta per tutte carican¬ 
dola e dando il RUN ; così facendo 
un programmino in linguaggio 
macchina viene memorizzato in 
fondo alla RAM Basic, modifican¬ 
done i puntatori. A questo punto, 
se si desidera "concatenare" due 
programmi Basic, uno presente in 
memoria e l'altro registrato su cas¬ 
setta o disco, è sufficiente digitare 

SYS xxxxx "nome programma" (da 


nastro) 

SYS xxxxx "nome programma",8 
(da disco) 

È lo stesso "Merge" che, appena 
viene attivato, indica la locazione 
xxxxx, la quale varia a seconda del¬ 
le eventuali espansioni di memoria 
connesse al VIC. Fate però atten¬ 
zione ai "range" dei numeri di linea 
dei programmi da concatenare: se 
infatti essi non sono disgiunti pos¬ 
sono verificarsi inconvenienti mol¬ 
to spiacevoli. Ad esempio, un pro¬ 
gramma i cui numeri di linea vanno 
da 10 a 1 000 non può essere con¬ 
catenato ad un programma il cui 
range sia 100-2000, prima di effet¬ 
tuare il merge sarà necessario rinu¬ 
merare uno dei due programmi. 
Inoltre, se abbiamo un programma 
A con range 10-500 e un program¬ 
ma B con range 1000-2000, dovre¬ 
mo prima caricare A e poi effettua¬ 
re il merge con B; infatti, dato che 
i programmi vengono caricati uno 
di seguito all'altro, se facessimo il 
contrario avremmo i numeri di linea 
"alti" prima di quelli "bassi", e il 
programma risultante non potreb¬ 
be venir eseguito correttamente. 

Il programma "Renumber" è intera- 


12 



mente scritto in Basic e numerato 
a partite dalla linea 63000, in modo 
da poter coesistere praticamente 
con qualsiasi altro programma Ba¬ 
sic (infatti in genere non vengono 
mai usati numeri di linea così alti). 
Il programma da rinumerare, una 
volta caricato in memoria, deve ve¬ 
nir sottoposto ad un piccolo "adat¬ 
tamento ' che consiste nel modifi¬ 
care gli indirizzi delle istruzioni di 
"salto " in modo che essi siano sem¬ 
pre composti da 5 cifre (esempio: 
GOTO 20 deve essere sostituito 
con GOTO 00020). "Renumber" va 
poi concatenato tramite un merge 
al programma da rinumerare, ed 

Merge 


attivato digitando RUN 63000. 
Eventuali errori commessi nella 
correzione degli indirizzi vengono 
segnalati bloccando l'elaborazio¬ 
ne; dopo aver provveduto alla 
correzione, digitare nuovamente 
RUN 63000. Quando la rinumera¬ 
zione è completa appare il mes¬ 
saggio "FATTO"; abbiate un po' di 
pazienza perché il procedimento 
può richiedere anche diversi minu¬ 
ti. I numeri di linea partono ora da 
10000 ed hanno incrementato 10 ; 
il programma ri numerato può quin¬ 
di venir salvato dopo aver cancel¬ 
lato manualmente le linee del "Re- 
number" (63000-63360). 


:rem 126 
:rem 93 
:rem 133 
: rem 38 
:PRINT"{GIU'} 
:rem 64 
: rem 175 
:r em 226 
1 47 
125 
240 
232 
179 
rem 16 
rem 0 
rem 65 
246 

: rem 73 


1 00 
1 1 0 
1 20 
1 30 
1 40 

1 50 
1 60 
1 70 
1 80 
1 90 
200 
210 
220 
230 
240 
250 
260 


POKE55,0 :POKE56,PEEK(56)- 1:CLR:PRINT"(CLR) 
S=PEEK(56) *256 + 1 :FORJ = STOS+78:READV 
C=C+V:POKEJ,V:NEXT 

IFC08785THENPRINT"ERRORE NELLE DATA": END 
PRINT"PER EFFETTUARE{ 8 SPAZI}IL MERGE: 

SYS"S;CHR$(34)"NOME"CHR$(34); 

REM PRINT",8" 

DATAI 69,0, 1 33,10, 32,209,22 5, 165 
DATA43,72,165,44,72,56,165,45 
DATA2 3 3,2, 1 33,43, 1 65,4 6,233,0 
DATAI 33,44,1 69,0, 1 33,1 85, 1 66,43 
DATAI 64,4 4,1 69,0, 32,21 3,2 55, 1 76 
DATAI 4, 1 34,4 5, 1 32,4 6,32,51,1 97 
DATAI 04,1 3 3,4 4,1 04,1 33,43,96,1 70 
DATA201,4,144,244,240,10,104,133 
DATA4 4,104,133,43,24,108,0,3 
DATAI 64,186,136,240,209,208,239 
PRINT: NEW 


: rem 
: rem 
: rem 
: rem 
: rem 


: rem 


Renumber 

63000 CLR:DIMZZ(FRE(0)/I2,1):IN=PEEK(44)*256+PEEK(43):LA= 
IN :PP=LA :rem 58 

6301 0 DEFFNDH(X)=PEEK(X)+2 56*PEEK(X+l) : rem 185 

63020 DEFFNH1 (X) =XAND255 ; rem U 2 

63030 DEFFNH2(X)=INT(X/256) : rem 31 

63040 IFPPOFNDH (LA) THEN63080 : rem 212 

63050 LA= FNDH(LA) :NL=FNDH(LA+2) :IFNL=63000THEN63270 
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: rem 


252 



63060 

IFPEEK(LA+5)=143THENPP=FNDH ( LA):GOTO63050 

: rem 

65 

63070 

PP=PP+4 

: rem 

220 

63080 

IFPEEK(PP)<>167THEN63120 

: rem 

233 

63090 

S=0:IFPEEK(PP+1 ) =32THENS=1 

: rem 

143 

631 00 

IFPEEK(PP+1+S)<480RPEEK(PP+1 +S)>57THEN63260 




: rem 

140 

631 1 0 

G0T063130 

: rem 

49 

631 20 

IFPEEK(PP)<>137ANDPEEK(PP)<>141THEN63260 

: rem 

223 

631 30 

S=0:IFPEEK(PP+1)=62THENS = 1 

: rem 

141 

631 40 

GG$ = "" .'FORI = 1 +STG5+S: IFPEEK (PP+I) < 480RPEEK (PP+I 

) >57 


THEN632 50 

: rem 

220 

631 50 

GG$=GG$+CHR$(PEEK(PP+I)) : NEXT 

: rem 

32 

631 60 

GG=VAL(GG$) : Li = IN : L2 = FNDH ( IN+2) : LL=1 0000 

: rem 

150 

631 70 

IFL2=63000THENPRINT"LINEA NON DEFINITA { 4 

SPAZI}ALL 


A LINEA";NL:END 

: rem 

69 

631 80 

IFL2=GGTHEN63220 

: rem 

6 

631 90 

LI=FNDH(LI ) :L2=FNDH(Li+2):LL=LL+10 

:rem 

30 

63200 

IFPEEK(Li+4)=143ANDPEEK(Li+5)=35THENLL=1000*INT (( LL 


+1000)/1000) 

: rem 

1 08 

6321 0 

G0T063170 

: rem 

54 

63220 

ZZ(ZI,0) =LL:ZZ(ZI,1) =PP+S:ZI=ZI+1 

:rem 

137 

63230 

IFPEEK(PP+S+6)=44THENPP=PP+6+S:G0T063130 

: rem 

34 

63240 

G0T0632 60 

: rem 

57 

63250 

PRINT"COMANDO NON STANDARD{ 2 SPAZljALLA LINEA" 

; NL : 


END 

: rem 

119 

63260 

PP=PP+1:GOTO63040 

: rem 

74 

63270 

LA=IN:LL=10000 

: rem 

99 

63280 

IFPEEK(LA+4)=143ANDPEEK(LA+5)=35THENLL=1000*INT((LL 


+1000)/!000) 

: rem 

148 

63290 

IFFNDH(LA+2)=63000THEN63320 

: rem 

81 

63300 

POKELA+2 , FNHl(LL) : POKELA+3 , FNH2 ( LL) 

: rem 

174 

6331 0 

LL=LL+10 : LA=FNDH ( LA):GOTO63280 

: rem 

110 

63320 

IFZI=OTHEN63360 

: rem 

206 

63330 

FORI=OTOZI-1 

: rem 

64 

63340 

FORJ= 1 T05 : POKEZZ ( 1 , 1 ) +J,ASC(MID$(STR$(ZZ(I 

,0) ) , 

J+l ) 


) : NEXT 

: rem 

6 

63350 

NEXT 

: rem 

64 

63360 

PRINT"FATTO": END 

: rem 

98 


3 

w 

| Fuoristrada 


È stata inventata una rivoluzionaria | superficie lunare, che è piena zep- 
auto fuoristrada per esplorare la I pa di crateri che rendono difficile 
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muoversi liberamente e veloce¬ 
mente. 

In questo divertente 3 Ì 0 C 0 per VIC 
20 con 3K di espansione potrete 
3 uidare questa favolosa e futuristi¬ 
ca automobile. 

Per farlo dovrete usare il joystick e 
spinserlo verso l'alto tutte le volte 
che vi troverete di fronte ad un cra¬ 
tere. 

Avete a disposizione una scorta li¬ 
mitata di carburante (999 litri) che 


viene aumentata di 500 litri a 250 
passi di distanza dalla partenza. 
Lo scopo del sioco è infatti percor¬ 
rere più suolo lunare possibile, evi¬ 
tando di cadere nei crateri. 

Sono da notare lo schermo di sran- 
dezza eccezionale (19 * 26 carat¬ 
teri) tutto il set di caratteri ridefini¬ 
to, alfabetico compreso, suolo lu¬ 
nare con scroti e sfondo che danno 
un tocco di realismo al 3 ioco. 

Ed ora buon divertimento!! 


1 00 
ilo 
1 20 

1 30 
1 40 
1 50 
1 60 

1 70 

1 80 

1 90 
200 

21 0 

220 

230 

240 

2 50 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 


GOSUB850 : rem 
REM CAMBIA I PUNTATORI DEL BASIC : rem 
POKE52,27 :POKE56,27:CLR :rem 
REM RIDEFINISCE I CARATTERI : rem 
FORI=0TO511 :POKE7168 + 1,PEEK(32768+1):NEXT : rem 
REM ALFABETO NUOVO : rem 


FORD = 7168T07383 :READF:POKEU,F:A=A+F:NEXT:READF 

: rem 

IFFOATHENPRINT"ERRORE NEL BLOCCO DATI 1":END 

: rem 

A=0 :rem 

REM NUOVI CARATTERI : rem 

F0RC=7432T07527:READG:POKEC,G:A=A+G:NEXT:READG 

: rem 

IFGOATHENPRINT"ERRORE NEL BLOCCO DATI 2": END 

: rem 

A=0 :rem 

REM L.M. LETTURA JOYSTICK : rem 

F0RJ = 828T09!2:READX:POKEJ,X :A=A+X:NEXT: READY : rem 
IFY< >ATHENPRINT"ERRORE NEL BLOCCO DATI 3":END 


174 

89 

66 

133 

184 

79 

135 

236 

71 

174 

126 

233 

66 

255 

110 


:rem 0 

REM ABILITA IL L.M. E I CARATTERI RIDEFINITI : rem 16 


SYS(828):POKE36869,255 

: rem 

204 

REM NUOVA GRANDEZZA DI SCHERMO 

: rem 

75 

PRINTCHR$(147):POKE36867,36 :POKE36865,44 

:POKE36866,15 

4 :POKE36864,9 

:rem 

64 

REM CALCOLA LOCAZIONE DI BASE 

:rem 

178 

P=PEEK(36866)ANDl28:SC=4*P+64*(PEEK(36869)ANDl12) 

: CO= 

3 7888+4 *P 

: rem 

190 

REM INIZIALIZZA LE VARIABILI 

: rem 

235 

PO(1)=SC+400: PO(2)=PO(l)+1:PO(3)=PO(2)+1 

: rem 

119 

FU=999:DI=0:O=0:X=69:Y=26:N=l 

: rem 

176 

S$ = "{HOME}{ 18 GIU' }{ 20 DES}" 

: rem 

25 


Q$="((((*((((+(((((*+(((((+(((<<(*(((+((<(((*+(((<<(* 
+ ((*(*(((*((+*((((( + (" : rem 169 
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370 X$ = "{ 3 SU){ 2 SIN}{YEL}!#{WHT}${GIU'}{DES}{GRN}%& 1 

{GIU'}{DES}{ 3 SPAZI}" : rem 123 

380 Y$ = "{ 3 SU)( 2 SIN}{YEL}{ 3 SPAZI}":Z$ ="{ 2 SU} 

{ 2 DES} {YEL} !#{WHT}${GIU' } {DES} {GRN}%5, '" : rem 130 

390 P$="{ 2 SU}{ 2 DES}{YEL}!#{WHT}${GIU'}{DES}{GRN})& , " 

: rem 191 

400 Si =36874 :S2 = Sl+1:S3 = S2 + 1:S4=S3 + 1 :V=S4 + 1 :rem 171 

410 REM CREA L'ORIZZONTE :rem 219 

420 PRINT"{HOME}{ 4 GIU'}{ 4 SIN}{GRN}{WHT}.{ 4 DES}."SPC 

(12)".{DES}"; : rem 137 

430 PRINT"{ 2 DES}.{ 5 DES}{GRN}{RVS}NM{ 2 DES}NM{OFF} 

{ 5 DES}{WHT}.{ 6 DES}"; :rem 64 

440 PRINT"{RVS}{ 7 DES}{GRN}N{ 2 DES} MN { 2 DES}M{OFF} 

{WHT}.{DES}{RVS}{GRN}NM{OFF}{ 3 DES}{WHT}.{ 3 DES}"; 

:rem 105 

450 PRINT"{RVS}{ 2 DES}{GRN}NM{ 2 DES}N{ 8 DES}MN 

{ 2 DES}M{OFF}{DES}{WHTJTT 2 DES}.TDES}"; :rem 163 

460 PRINT"{RVS}{DES}{GRN}N{ 2 SPAZI}MN"SPC(14)"M{ 2 DES} 
NMN"; -rem 172 


470 

PRINT"{RVS}N"SPC(20)"MN{ 3 DES}" 

: rem 

27 

480 

REM VISUALIZZA IL PUNTEGGIO 

: rem 

21 7 

490 

PRINTCHRS(19)CHRS(158)"DISTANZA:"DI :PRINTCHR$(19)SPC( 


15)"CARB:"FU 

: rem 

144 

500 

REM VISUALIZZA LA MACCHININA 

: rem 

227 

510 

PRINTCHRS(159)S$;RIGHTS(Q$,26) 

: rem 

1 94 

520 

PRINTS$"{ 2 SU}{ 2 DES}{YEL}!#{WHT}${GIU' 

}{DES}{GRN}% 


8 , ' " 

: rem 

4 

530 

FORL=lTOl 000 :NEXT 

: rem 

22 

540 

REM RUMORE DEL MOTORE 

: rem 

2 

550 

POKEV,5 :POKESl,128 :POKES4,254 

: rem 

235 

560 

REM ROUTINE PRINCIPALE 

: rem 

1 40 

570 

FORT=NT03:IFPEEK(PO(T)+Y)=43THEN71 0 

: rem 

170 

580 

NEXTT 

: rem 

48 

590 

IFDI = 2 50THENFU=FU+500 

: rem 

240 

600 

IFZONTHENIFPEEK (841) =OTHENZ=N:GOSUB830 

:rem 

13 

61 0 

IFZ=NTHENZl=Zl+N:IFZl=4THENZl=0:Z=0:FORT= 

NT03: PO(T)=P 


O(T)+Y:NEXT 

: rem 

3 

620 

IFZ=NTHENFU=FU-5 

: rem 

16 

630 

PRINTCHRS(19)CHR$(5)SPC(9); DI :PRINTCHRS(19)SPC(20) 

; in 


T(FU)" " 

: rem 

19 

640 

G$ =RIGHT$(Q$,X)+LEFT$(Q$,N):Q$=G$:PRINTCHR$(159)SS 

: ; RI 


GHT$(Q$,Y> 

: rem 

1 50 

650 

IFZ=NTHENPRINTS$;X? 

: rem 

249 

660 

IFZ=OTHENPRINTS$;Y$:IFRND(1)<.5THENPRINTSS;Z$:GOTO680 



: rem 

199 

670 

IFZ=OTHENPRINTS$;P$ 

: rem 

244 

680 

FU=FU-.2 :IFFU<OTHEN710 

: rem 

84 

690 

DI=DI+N 

: rem 

111 

700 

GOTO570 

: rem 

1 08 

710 

REM CRASH 

: rem 

237 

720 

POKESl,0 

: rem 

1 68 
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730 

FORVO=15TOOSTEP-.5:R=INT(RND(1)*9+195):POKE(PO(1)) 

> R: 


POKE(PO(2)),R:POKE(PO(3)),R 

: rem 

1 4 

740 

POKE36875,44+INT(RND(1)*3+1) 

: rem 

241 

750 

POKES3,INT(RND(1)*5+249) 

: rem 

72 

760 

POKEV,VO:POKES4,160+VO:NEXTVO:POKES4 

,0:POKES3,0 




: rem 

43 

770 

POKE64 6,INT(RND(1)*7+1) 

: rem 

248 

780 

PRINTSS"{ 2 SUl( 2 SIN}{RVS}Z{OFF} FUORISTRADA {RVS} 


Z{OFF} {GIU 1 }{ 6 SIN} ( 3 SPAZI}" 

: rem 

66 

790 

PRINTLEFTS(SS,4)+RIGHT$(S$,15)"-{ 3 

SPAZI}PREMI 



{ 2 SPAZI}FUOCO{ 3 SPAZI}-" 

: rem 

98 

800 

IFPEEK (84 5) O0THEN770 

: rem 

1 81 

810 

PRINTCHRS(147):GOT0310 

: rem 

27 

820 

REM POSIZIONE DELLA MACCHIN INA 

: rem 

107 

830 

FORT=1T03: PO(T)=PO(T)-26 :NEXT 

: rem 

39 

840 

RETURN 

: rem 

1 24 

850 

REM PAGINA DI PRESENTAZIONE 

:rem 

1 65 

860 

PRINTCHRS(147):POKE36879,8 

: rem 

247 

870 

PRINTCHRS (5) " { 3 GIU’H 4 DES}* FUORISTRADA *" 




:rem 

54 

880 

PRI NT" { 3 GIU’H 6 DES} *PAPERSOFT* " 

: rem 

90 

890 

RETURN 

: rem 

1 29 

900 

REM **ALFABETO** (BLOCCO DATI 1) 

: rem 

1 85 

91 0 

DATAO,0,0,0,0,0,0,0 

:rem 

1 04 

920 

DATA2 52,1 32,1 32,254,1 34,1 34, 1 34,0 

: rem 

65 

930 

DATA252,132,132,254,134,134,254,0 

: rem 

69 

940 

DATA252,128,128,128,128,128,254,0 

: rem 

86 

950 

DATA2 40,1 36,1 32, 1 34,1 34,1 34,254,0 

: rem 

69 

960 

DATA248,128,128,252,128,128,254,0 

: rem 

91 

970 

DATA254,128,128,252,128,128,128,0 

: rem 

89 

980 

DATA252,128,128,134,134,134,254,0 

: rem 

81 

990 

DATAI 32,1 32,1 32, 254,1 34,1 34,1 34,0 

: rem 

69 

1 000 

DATAI 6, 1 6, 16,56,56,56,56, 0 

: rem 

32 

1010 

DATA2 54,1 6,1 6, 24,24,24,248,0 

: rem 

1 21 

1020 

DATAI 28,1 32,136,240,140,140,140,0 

:rem 

97 

1 030 

DATAI 28,128,128,128,1 28,1 28,254,0 

:rem 

1 27 

1 040 

DATA204,180,132,134,134,134,134,0 

:rem 

1 04 

1050 

DATAI 32,1 32,228,1 58, 1 34,1 34,1 3 4,0 

: rem 

114 

1 060 

DATA252,132,132,134,134,134,254,0 

: rem 

1 09 

1 070 

DATA254,130,254,128,128,128,128,0 

: rem 

1 24 

1 080 

DATA252,132,132,150,142,134,254,1 

:rem 

109 

1 090 

DATA254,130,252,134,134,134,134,0 

: rem 

112 

1100 

DATA248,128,252,6,6,6,254,0 

: rem 

79 

1110 

DATA254,16,16,24,24,24,24,0 

:rem 

66 

1 1 20 

DATAI 32,1 32,1 32,1 34,1 34,1 34,2 54,0 

: rem 

1 03 

1 1 30 

DATAI 32,1 32,1 96,70,102,38,62,0 

: rem 

220 

1140 

DATAI 32,1 32,1 32,1 50, 1 50,1 50,2 54,0 

: rem 

99 

1 1 50 

DATA68,68,40,16,40,68,68,0 

: rem 

44 

1 1 60 

DATAI 32,68,52,1 4,6,6,6,0 

: rem 

1 84 

1 1 70 

DATAI 26,2,30,32,64,1 28,254,0 

: rem 

1 22. 

1 1 80 

REM CHECKSUM 

: rem 

1 


17 


Vtyòó'LL 


1190 DATA24607 

1 200 REM * * DATI CARATTERI** (BLOCCO DATI 2) 

1210 DATAI 28,64,33,1 7, 19,63,112,207 

1220 DATAO,0,0,0,0,0,0,0 

1 2 30 DATA32,252,1 94,21 7,220,255, 1 24,1 87 

1 240 DATAO, 0,0,0,1 28,248,28,230 

1250 DATA223,185,182,118,121,63,31,15 

1260 DATA215,215,238,238,239,199,199,1 

1270 DATA247,59,218,220,60,248,248,224 

1280 DATA53,86,136,0,0,0,0,0 

1 290 DATA22 3,1 85, 1 76,1 1 2,1 21 , 63,31 , 1 5 

1300 DATA78,178,1,0,0,0,0,0 

1310 DATAI 28,1 29,129,1 29, 1 98,198,68,56 

1 32 0 DATA247, 59,26, 28,60,248,248,224 

1330 REM CHECKSUM 

1 340 DATAI 0397 

1 350 REM * * L.M. JOYSTICK** (BLOCCO DATI 3) 

1 360 DATAI 20,1 69,78, 141,20, 3, 169,3 
1 370 DATAI 41 ,21 , 3,88,96,0,0,0,0,0 
1 380 DATAI 69,0,141,19,145,1 69,1 27 
1 390 DATAI 41 , 34, 1 45, 1 73,1 7, 1 45, 41 
1 400 DATA4 , 1 41 ,73,3,1 73,1 7, 1 45,41 
1410 DATA8,1 41,74,3,1 73,1 7, 1 45,41 
1 420 DATAI 6,1 41 , 75,3,1 73,32,145,41 
1 430 DATAI 28, 1 41 ,76,3,1 73,1 7,1 45 
1440 DATA41,32,141,77,3,169,255 
1450 DATA141,34,145,169,128,141 
1 4 60 DATAI 9, 1 4 5, 76, 1 91 , 2 34, 0,0,0,0 
1470 REM CHECKSUM 
1480 DATA7167 


rem 

232 

rem 

103 

rem 

229 

rem 

147 

rem 

177 

rem 

1 3 

rem 

71 

rem 

1 50 

rem 

140 

rem 

121 

rem 

72 

rem 

66 

rem 

159 

rem 

43 

rem 

254 

rem 

230 

rem 

18 

rem 

1 84 

rem 

108 

rem 

146 

rem 

136 

rem 

124 

rem 

1 30 

rem 

176 

rem 

88 

rem 

40 

rem 

40 

rem 

1 70 

rem 

3 

rem 

1 88 


Calibro 


BASIC 


Questo programma didattico si¬ 
mula l'utilizzo di un calibro a cou¬ 
lisse, e può essere molto utile per 
chi è ancora alle prime armi con le 
misurazioni. Presenta anche la grafi¬ 
ca, e la seconda opzione è trasfor¬ 
mata in un piacevole giochino. 
Verrà stampata la figura del calibro 
con l'unità di misura su di essa, ed 
il nonio sottó: a seconda dell'op¬ 


zione che avrete scelto, potrete o 
posizionare il nonio su una misura 
che volete, oppure potrete rilevare 
voi stessi la misura (si spera senza 
errori). 

Si consiglia di iniziare con la prima 
opzione, e farla seguire dalla se¬ 
conda,- dopodiché (si spera), avre¬ 
te imparato ad usare un calibro a 
coulisse. 
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100 REM 

no CALL CLEAR 

120 CALL HCHAR(23,10,42,17) 

1 30 PRINT TAB(8) ;"* *" 

140 PRINT TAB(8);"* CALIBRO*" 

150 PRINT TAB(8);"* *" 

160 CALL HCHAR(24,10,42,17) 

170 PRINT 
180 PRINT 

190 PRINT " Il programma simula l'uti- lizzo d'un calibro 
coulisse munito di un vernier a 1/10." 

200 PRINT 

210 PRINT " Desiderate :" 

220 PRINT "- posizionare seguendo una data coordinata 
? Premi 1." 

230 PRINT 


240 PRINT vuoi esercitarti a misura- re il calibro te 
ntando ad azzardo ? Premi 2." 

250 PRINT 
260 PRINT 

270 PRINT "Utilizza il PUNTO DECIMALE enon la virgola (es 
empio: 3.4e non 3,4)" 

280 PRINT 

290 PRINT " Premi un tasto qualunque per iniziare e pas 
sare a unascelta." 

300 PRINT 

310 INPUT "La tua scelta ? ":R 
320 IF R=1 THEN 390 


330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
51 0 
520 
530 
540 
550 


CALL CLEAR 

INPUT "QUAL'E' IL VOSTRO NOME ? ":NOM$ 

PRINT 

INPUT " Ubante misure vuoi fare ":NM 
PRINT 

PRINT " se vuoi continuare,premiun tasto." 
CALL KEY(0,KE,ST) 

IF ST= 0 THEN 390 
CALL CLEAR 
CALL SCREEN(5) 

CALL COLOR(2,2,15) 

CALL COLOR(3,2,15) 

CALL COLOR(4,2,15) 

CALL COLOR(5,2,15) 

CALL COLOR(6,2,15) 

CALL COLOR(7,2,15) 

CALL COLOR(8,2,15) 

CALL COLORO, 2,5) 

CALL COLOR(10,2,5) 

CALL COLOR(11,2,5) 

CALL COLOR(15,2,15) 

CALL COLOR(13,2,15) 

CALL COLOR(14,5,15) 
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560 CALL COLOR(16,2,15) 

570 CALL COLOR (12,7, 15) 

580 CALL CHAR(149,"0101010101010101") 

590 CALL CHAR(150,"") 

600 CALL CHAR(128,"808080808080") 

610 CALL CHAR(129,"404040404040") 

620 CALL CHAR(130,"202020202020") 

630 CALL CHAR(131 ,"101010101010") 

640 CALL CHAR(132,"080808080808") 

650 CALL CHAR(133,"040404040404") 

660 CALL CHAR(134,"020202020202") 

670 CALL CHAR(135,"010101010101") 

680 CALL CHAR(136,"") 

690 CALL CHAR(144,"80808080808080FF") 

700 CALL CHAR(145,"20202020202020FF") 

710 CALL CHAR(146,"08080808080808FF") 

720 CALL CHAR(147,"02020202020202FF") 

730 CALL CHAR(148,"OOOOOOOOOOOOOOFF") 

740 CALL CHAR(152,"60909090909060") 

750 CALL CHAR(153,"E08080C02020C0") 

760 CALL CHAR(154,"26292929292926") 

770 CALL CHAR<155,"27242426212126") 

780 CALL CHAR(137,"FOFOFOFOFOFOFOFO") 

790 CALL CHAR(123,"FOFOFOFOFOFOFOFO") 

800 CALL CHAR(126,"FFFFFFFFFFFFFFFF") 

810 IF R=2 THEN 1070 
820 CALL CLEAR 
830 GOSUB 261 0 
840 REM 

850 MOT$ =CHR$ ( 1 50) 5-"LATO"S,CHR$ ( 1 50) &"?"&CHR$ ( 1 50) 

860 D=2 

870 LI=20 

880 GOSUB 3230 

890 CALL SOUND(100,-2,5) 

900 GOSUB 2350 
910 GM=GE 

920 IF GM<11.1 THEN 1010 

930 MOT$="VALORE"SCHR$(150)&"TROPPO"&CHR$(150)6"GRANDE" 
940 LI=22 
950 D=2 

960 GOSUB 3230 

970 FOR V=1 TO 4 

980 CALL SOUND(200,-7,5) 

990 NEXT V 
1000 GOTO 1020 
1010 GOSUB 2820 
1020 CALL KEY(0,K,E) 

1030 IF E=0 THEN 1020 
1040 GOSUB 3140 
1050 GOTO 840 
1060 REM 
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1070 CALL CLEAR 
1080 NBE=0 
1090 BR=0 
1100 GOSUB 2610 
1110 FOR CP=1 TO NM 
1120 RANDOMIZE 
1130 MR=0 

1140 GM=INT(RND*110)/l0 
1150 NBE=NBE+1 
1160 GOSUB 2820 

1 1 70 MOT$=CHR$(150) 5,"LATO"S.CHR$ ( 1 50) &CHR$ ( 1 50 ) 
1180 LI= 20 
1190 D=1 
1200 GOSUB 3230 


1210 CALL SOUND (100,-2,5) 

1220 FOR 1=12 TO 16 

1230 CALL HCHAR(1,26,150,7) 

1240 NEXT I 
1 250 MOT$ = "SCORE" 

1260 LI=13 

1270 D=26 

1280 GOSUB 3230 

1290 GOSUB 2350 

1300 IF GE=GM THEN 1730 

1 31 0 IF MR=0 THEN 1340 

1320 IF MR=1 THEN 1480 

1330 IF MR=2 THEN 1670 

1 340 MOT$="ERRORE:PROVATE"&CHR$ (1 50) S." ANCORA" 
1350 LI=22 
1360 D=2 

1 370 FOR 1 = 1 TO 4 

1380 CALL SOUND(90,165,5) 

1390 CALL SOUND(90,131,5) 

1400 CALL SOUND(90,165,5) 

1410 CALL SOUND(200,165,30) 

1420 NEXT I 
1430 GOSUB 3230 
1440 FOR DEL=1 TO 200 
1450 NEXT DEL 
1460 GOSUB 3180 
1470 GOTO 1650 

1 480 IF INT(GE)=INT(GM) THEN 1520 
1490 IF GE-INT(GE)=GM-INT(GM)THEN 1540 
1500 MOT$="errore totale ! " 

1510 GOTO 1550 

1520 MOT$="errore nella patte decimale" 

1530 GOTO 1550 

1540 MOT$="errore nella parte intera" 

1550 LI=22 
1 560 D= 2 
1 570 GOSUB 3230 
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1 580 MOT$ = "ULTIMA"&CHRS(150)&"PROVA" 

1 590 LI= 2 3 
1600 D=2 
1610 GOSUB 3230 
1620 FOR DEL=1 TO 400 
1630 NEXT DEL 
1640 GOSUB 3180 
1650 MR=MR+1 
1660 GOTO 1170 

1 670 MOT$ = "ERRORE: IL"&CHR$ ( 1 50) &"LATO"&CHR$ (1 50) &"E 
$ ( 1 50 ) & STR$(GM) 

1 680 FOR V=1 TO 5 

1690 CALL SOUND(50,110,5) 

1700 CALL SOUND(100,-5,5) 

1710 NEXT V 
1 720 GOTO 1 790 
1 730 MOT$ = "BENE" 

1740 BR=BR+1 

1 750 FOR V=1 TO 5 

1760 CALL SOUND(50,440,5) 

1770 CALL SOUND(50,660,5) 

1780 NEXT V 
1790 LI=22 
1800 D=3 
1810 GOSUB 3230 

1 820 MOT$ =STR$ (BR) &"/"S>STRS (NBE) 

1 830 LI = 15 
1840 D=26 
1850 GOSUB 3230 

1860 MOT$="premi un tasto qualunque" 

1 870 LI = 24 

1880 D=2 

1890 GOSUB 3230 

1900 CALL KEY(0,CL,ET) 

1910 IF ET=0 THEN 1900 
1 920 GOSUB 3140 
1 930 NEXT CP 
1940 CALL CLEAR 
1950 PRINT 
1960 PRINT 
1 970 CALL SCREEN(4) 

1980 FOR 1=2 TO 16 
1990 CALL COLORII,2,4) 

2000 NEXT I 

2010 PRINT TAB(10);NOM$;"," 

2020 PRINT 

2030 PRINT " Avete indovinato" 

2040 IF BR> 1 THEN 2070 

2050 PRINT TAB(7);STR$(3R)&" misura su "&STR$(NM) 
2060 GOTO 2080 

2070 PRINT TAB (7) ;STR$ (BR) S." misure su "&STR$(NM) 


'"6.CHR 


.1 
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2080 PRINT 
2090 IF BR/NM>.8 
2100 IF BR/NM>.5 
2110 PRINT 
2120 PRINT 
21 30 PRINT 
i di pia' 

2140 PRINT 
2150 PRINT 


THEN 

THEN 


2220 
21 80 


Fai proprio pena !' 


" Rifai ancora questa prova ! Riguardat 

la posizione ZERO DEL CUR- SORE” 

"cne da la PARTE INTERA dellamisura," 

"e la gradazione del cursore che COINCIDE ha u 
n tratto diparte fissa" 

2160 PRINT "(questa gradazione ti da' 

Ila misura)" 

2170 GOTO 2250 
2180 PRINT " Non male..." 

2190 PRINT 

2200 PRINT "ma poteva essere un 10 in 
Comunque, riprovaci un'altra volta." 

2210 GOTO 2250 
2220 PRINT 
2230 PRINT 
2240 PRINT 
a 1/10" 

2250 PRINT 


laPARTE DECIMALE de 


pagella. Peccato! 


" Molto bene !" 

"Ora potete dire che sapete usare un calibro 


2260 
2270 
2280 
2290 
2300 
231 0 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
241 0 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
251 0 
2520 
2530 


INPUT "Un'altra serie ? ":REP$ 

IF (REP$="SI")+(REP$="S")THEN 340 

CALL CLEAR 

PRINT 

PRINT 

PRINT TAB(7);"ARRIVEDERCI" 

PRINT 

PRINT 

END 

DIM NB ( 5) 

FOR 1 = 1 TO 5 
IF K=13 THEN 2440 
CALL KEY(0,K,E) 

IF E=0 THEN 2380 
IF E=-1 THEN 2380 
IF K=13 THEN 2430 
CALL HCHAR(20,10+I,K) 

NB(I)=K 
NEXT I 
K= 1 4 

IF NB ( 1 ) 04 6 THEN 2490 
GE=(NB(2)-48)/10 
GOTO 2600 

IF NB ( 2) 046 THEN 2520 
GE=NB(l)-48+(NB(3)-48)/10 
GOTO 2600 

IF NB ( 3) 046 THEN 2550 

GE=(NB(1)-48)*10+NB(2)-48+(NB(4)-48)/IO 
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2540 GOTO 2600 

2550 IF NB(2)<>13 THEN 2580 

2560 GE=NB(1)-48 

2570 GOTO 2600 

2580 IF NB(3)<>13 THEN 2600 

2590 GE=(NB(1)-48)* 10+NB(2)-48 

2600 RETURN 

2610 REM 

2620 CALL HCHAR(2,3,150,29) 

2630 CALL HCHAR(3,3,150,29) 

2640 CALL HCHAR(4,3,150,29) 

2650 CALL HCHAR(4,5,148,2) 

2660 CALL VCHAR(5,3,150,10) 

2670 CALL VCHAR(5,4,149,12) 

2680 FOR 1=0 TO 24 
2690 PH=I-INT(1/5)*5 
2700 CPH=144+PH 
2710 C=7+I 

2720 CALL HCHAR(4,C,CPH) 

2730 NEXT I 

2740 CALL HCHAR(3,7,152) 

2750 CALL HCHAR(3,13,153) 

2760 CALL HCHAR(3,19,154) 

2770 CALL HCHAR(3,25,155) 

2780 GOSUB 3140 

2790 CALL SOUND(100,660,5) 

2800 RETURN 

2810 REM 

2820 T= GM*10 + 1 

2830 C=INT(T/8)+7 

2840 IF (GM>.6)+(GM=0)THEN 2890 

2850 CALL VCHAR(5,5,137,2) 

2860 CALL VCHAR(7,5,123,3) 

2870 CALL VCHAR(10,5,137,7) 

2880 GOTO 2930 
2 890 FOR Q= 5 TO C-3 
2900 CALL VCHAR(7,Q,126,3) 

2910 NEXT Q 

2920 CALL VCHAR(5,C-2,150,12) 
2930 CALL VCHAR(7,C-1,150,8) 
2940 CALL HCHAR(5,C-1,150,15) 
2950 CALL HCHAR(6,C-1,150,15) 
2960 P=T-INT(T/8)*8 
2970 FOR I=P TO P+11 
2980 PP=I-INT(1/9)*9 
2990 IF 1=0 THEN 3010 
3000 IF 109 THEN 3030 
3010 PP=9 

3020 CALL HCHAR(5,C-1,135) 

3030 IF IOl 8 THEN 3060 
3040 CALL HCHAR(5,C,135) 
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3050 GOTO 3070 

3060 CALL HCHAR(5,C,127+PP) 

3070 C=C+1 
3080 NEXT I 

3090 CALL HCHAR(6,C-1,154) 

3100 CALL HCHAR(6,C-6,153) 

3110 CALL HCHAR(6,C-12,152) 

3120 CALL SOUND(100,-3,5) 

3130 RETURN 
3140 REM 

3150 FOR Q=5 TO 32 

3160 CALL VCHAR(5,Q,32,12) 

3170 NEXT Q 

31 80 FOR 14=1 9 TO 24 

3190 CALL HCHAR(M/1,136,32) 

3200 NEXT M 
3210 RETURN 
3220 REM 

3230 FOR 1=1 TO LEN(MOT$) 

3240 L$=SEG$(MOT$,1,1) 

3250 CALL HCHAR(LI,I+D,ASC(L$)) 
3260 NEXT I 
3270 RETURN 


Missione impossibile 


6/48K 



Aggiratevi nel tunnel sul pianeta 
alieno, bombardando le postazio¬ 
ni nemiche ed evitando di essere 
colpiti dalle astronavi extraterre¬ 
stri. Il gioco vi richiede abilità e 
tempismo: dovrete infatti riuscire a 
sganciare le bombe in modo che 
esse intercettino la rotta delle navi 

1 REM **•******»*****»**»•»»» 

2 REM MISSIONE IMPOSSIBILE 

3 REM ************•»■»•»**•*«* 

5 IF PEEK USR "a"=l28 THEN GO TO 
10 FOR a=l TO 13: READ aS 
20 FOR b=0 TO 7: READ c 
30 POKE USR a$+b,c 
40 NEXT b 


nemiche. Infine tenete conto che il 
programma è rivolto solo ad utenti 
dotati di spiccato senso del l'umo¬ 
rismo: la missione è veramente im¬ 
possibile! 

Chi ha una Issue 3 sostituisca alla 
linea 1200 il numero 255 con il nu¬ 
mero 191 


290 
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50 
60 
70 
80 
90 
100 
110 
1 20 
1 30 
1 40 
150 
1 60 
1 70 
1 80 
290 
300 
310 
320 
340 
370 
380 
700 
710 
720 
730 

760 

761 
765 
767 
770 
780 
7 J0 
800 
810 
81 5 
820 

830 
840 
850 
900 
910 
920 
930 
940 
950 
960 
990 
1000 
1010 
1 020 
1030 
1 040 
1045 
1 048 
1 060 
1065 
1 070 
1 080 
1 090 


NEXT a 

DATA "a",128,64,32,16,8,4,2,1 

DATA "b”,1,2,4,8,16,32,64,128 

DATA "c“,0,0,0,0,3,12,48,192 

DATA "d",3,12,48,192,0,0,0,0 

DATA "e",192,48,12,3,0,0,0,0 

DATA "£",0,0,0,0,192,48,12,3 

DATA "g",0,16,16,40,40,84,108,0 

DATA "h",255,16,184,230,184,16,255,0 

DATA "i",146,84,0,198,0,84,146,0 

DATA "j",0,0,3,14,3,0,0,0 

DATA "k",255,0,0,0,0,0,0,0 

DATA "1",0,126,126,126,126,126,126,0 

DATA "ra",0,0,6,26,100,26,6,0 

BORDER 0: PAPER 0: INK 7: CLS 

LET a$="BKKKKEFBKACDKKEFBKKKACDKKKKABABA" 

LET b$ = " 1G8 } GGGG ( 3G8 )G( 3G8 }GG{ 3G8 )GGG~t~3G8 } GGGG ( 5G81 " 

LET c$-" CDA BABA CDEF BEF CDA CDA CDA" 

LET £»0: LET sc=0 
LET fu-32 
LET li«2 

PLOT 0,15: DRAW 255,0 
PLOT 0,96: DRAW 255,0 
PRINT AT 8,1;"PUNTI : M ; se 
GO SUB 9500 

INPUT AT 0,0,-"LIVELLO DI DIFFICOLTA' (1-5)? ( 1 = FACILE / 5 = 

DIFFICILE ) ";v 

IF V>5 OR V<1 THEN GO TO 760 

LET V=V-1 

PRINT AT 0,1; INK 7;"MISSIONE IMPOSSIBILE" 

BEEP 2,30 

PRINT AT 21,0;" " 

FOR z=6 TO 2 STEP -1 

PRINT INK z;AT z,0 ;"LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL" 

NEXT z 
POKE 23658,0 

PRINT AT 12,1;"TASTI - P - AVANTI";AT 13,9;"0 - ARRESTA";AT 14,9 
;"Q - ALTO";AT 1 5,9;"A - BASSO";AT 16,9;"M - BOMBA" 

PRINT AT 21,3;"PREMI "; FLASH l;"BOMBA"; FLASH 0;" PER GIOCARE" 
IF INKEY$O n m" THEN GO TO 840 
PRINT AT 21,0;,, 

FOR z=l1 TO 17 

PRINT AT z, 0; " •• 

NEXT Z 

LET a = l2 : LET b = 8 

LET c=0: LET d=2: LET e=2 

LET g=0: LET h«0: LET i=0 

LET j=0: LET k=10: LET 1=10 

POKE 23658,0 

LET z$ = INKEYS 

LET al=a: LET b1=b 

IF Z8="p" THEN LET b=b+2 

LET b=b- 1 

LET a=at(z$="a” AND a<l7)-(z$= M q“ AND a>11) 

IF Z$="o" THEN LET b=b+1 
IF b>31 THEN GO SUB 6000 
PRINT AT al,bl ;" " 

IF b<0 THEN GO TO 4000 
PRINT INK 4 ;AT a,b;"H" 

IF bl>b AND a 1=a THEN GO TO 1100 

IF bl>0 THEN. PRINT INK 2;AT al,bl-l;“ " 
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1095 IF b>0 THEN PRINT INK 2;AT a,b-l;"J" 

1100 GO SUB 9000: GO SUB 9100 ~ 

1106 IF a = INT k AND l=b THEN GO TO 4000 
1190 LET z$=INKEYS 

1 200 IF COI AND IN 32766=255 THEN GO TO 1300 

1210 IF C=0 THEN LET d=a: LET e=b: LET C=1: LET fu=£u-1S PRINT AT li 
.fu;" IF fu=0 THEN GO TO 4000 
1220 LET di=d: LET e!=e 
1230 LET d=d+l: LET e=e+l 
1 240 PRINT AT di ,el •' 

1250 PRINT INK 6;AT d,e;". M 

1260 IF e>30 THEN PRINT AT d,e;" LET c-0 

1270 IF d>l7 THEN GO TO 2000 

1280 IF i=e AND d=h THEN GO TO 3000 

1290 IF INT k»d AND l=e THEN GO TO 3500 

1300 IF £<14 THEN GO TO 1400 

1310 IF a$<>" BKKKKEFBKACDKKEFBKKKACDKKKKABABA " THEN GO TO 1400 
1320 LET b$ = " (GÓ)GGGG(3G81G(3G8)GG(3G8)GGG(3G8)GGGG(5G8}" 

1330 LET f*0 

1400 IF g=0 AND (b+(18-a)-v-2<l OR b+(18-a)-v-1>32) THEN GO TO 1500 
1410 IF g=0 AND (" »+o$+" ")(b+(18-a)*v+3)<>"G M THEN GO TO 1 

500 ~ 

1420 IF g=l THEN GO TO 1450 

1 430 LET g = l : LET i=b+(18-a)-v-2: LET h=l8 

1440 LET bS(b+(18-a)-v-l)=" ": LET £=£+1 

1 450 LET hi=h: LET Ì1=i 

1460 IF b<i THEN LET i=i-1 

1470 IF b>i THEN LET i=i+ì 

1475 LET h=h-1 

1480 PRINT AT hl.il; " " 

1483 IF h=l0 THEN LET g=0: GO TO 1500 
1485 PRINT INK 5;AT h,i;"G" 

1490 IF h=a AND i=b THEN GO TO 4000 
1498 IF i=e AND d=h THEN GO TO 3000 
1501 IF j=l THEN GO TO 1550 
1510 IF b< 20 THEN GO TO 1600 
1 520 LET j = l 
1530 LET k=a: LET 1=31 
1550 LET kl=k: LET 11=1 
1555 LET 1=1-1 

1 560 IF a<k THEN LET k=k-.2 
1565 IF a>k THEN LET k=k+.2 
1570 PRINT AT INT kl.ll;" " 

1580 PRINT INK 3;AT INT k,l;"M" 

1590 IF 1=0 THEN LET j=0: PRINT 
1595 IF a=INT k AND l=b THEN GO 
1599 IF l=e AND d=INT k THEN GO 
1 990 GO TO 1000 
2000 PRINT INK 6;AT d,e;"I“ 

2010 BEEP .03,0 

2020 IF b$(e+l)*"G" THEN LET sc=sc+10: BEEP .1,45: LET bS(e+l)=" 

LET £=£+1: PRINT AT 8,7;sc 
2030 PRINT AT d,e;” " 

2040 LET c=0 
2090 GO TO 1300 
3000 PRINT INK 6;AT d,e;"I" 

3010 BEEP .1,45 
3020 PRINT AT d,e;" " 

3030 LET c=0: LET g=0 
3040 LET sc=sc+INT <RND*3+3)*10 
3050 PRINT AT 8,7;sc 


AT INT k,0;" LET 1=10: LET k=10 
TO 4000 
TO 3500 
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3060 
3080 
3090 
3500 
351 0 
3520 
3530 
3540 
3550 
4000 
4002 
4005 
4010 
4040 
4080 
4090 
5000 
5005 

5010 

5012 

5017 

5020 

5030 

6000 

6005 

601 0 
6020 
6030 
0050 


LET h=0: LET i=0 
LET d=2: LET e=2 
GO TO 1500 
PRINT AT d ,e; ”V' 

BEEP .1,45 
PRINT AT d ,e ;" " 

LET j=0: LET C=0 

LET sc=sc+l00: PRINT AT 8,7;sc 

LET k = l0 : LET 1=10: GO TO 3080 

PRINT INK 1Ì;AT li>0;" LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL 
PRINT AT li,li*2;"MISSIONE CONCLUSA" 

LET li=li+l 


LET fu»32 
FOR z=60 TO 0 
IF li=7 THEN 
GO TO 900 

PRINT AT 14,6; FLASH 1 ; 


STEP -5: BEEP 
GO TO 5000 


.1,z; NEXT z 


INK 2;"MISSIONE FALLITA" 


LET a$ = " PER FARE UN'ALTRA PARTITA PREMI UN TASTO QUAL 

SIASI. " 

BEEP .05,20: BEEP .05,30 
LET a$=a$(2 TO LEN a$)+a$(l) 

PRINT AT 21,0; INK RND*6+2;a$(l TO 32) 

IF INKEYS = '"' THEN GO TO 5010 
RUN 

PRINT AT a,30;" " 

IF fu>23 THEN PRINT AT li,0; INK 1i;" LLLLLLLLLLLLLLLLLLLLLLLLLL 
LLLLLL": LET fu=32: GO TO 6050 
FOR z=fu TO fu+8 

LET £u=£u+l: PRINT AT li,z; INK li;"L" 

NEXT z 

LET sc=sc+50: PRINT AT 8,7;SC 


6080 LET b=2 
6090 RETURN 

9000 LET a$=a$(2 TO 32)+a$(l) 

9010 LET bS=b$(2 TO 32)+b$(1) 

9020 LET c$=c$(2 TO 32)+c$(1) 

9090 RETURN 

9100 PRINT INK 5;AT 18,0;b$ 

9110 PRINT a$ 

9120 PRINT AT 10,0;c$ 

9190 RETURN 

9500 LET z$="(2SG4)(2SG5){SG4)(G5){G2}{SG5)(SG4){SG5}{SGl}{2G5}{G2} 
(SG5){2SG4}{SG5){SG4}(G7}{G 5}{G7){G 5}(G2)(SG4){2G5){G6){3G5) 
(G3)": LET y$ = "(4SG5){GS}(G8)(5SG5)(G7}{G5){G2J(4 SG5){SG4}{G3} 
l2G5){G8|(SG5)(3G5){G7){3G5)(G2)": LET x$ = "{4G2}{G3){Gl){2G2) 
{G3){2G2H2G1){6G2HG8){G1)(G3HG1){G2HG3H2G1HG3H2G1}{2G3J 
(3G2)PREMI UN TASTO{2G2J(G8}{G1}(G3}{Gl}{G2){G3}{2G1}{G3}(2G1) 
{2G3)" 

9501 PRINT AT 21,3;"PREMI UN TASTO PER GIOCARE" 

9502 PRINT AT 10,0;c$(1 TO 32) 

9503 PRINT AT 18,0; INK 5;bS(1 TO 32) 

9504 PRINT a$(1 TO 32) 

9510 LET z$=z$(2 TO LEN z$)+z$(l) 

9515 BEEP .004,INT (RND*30+20) 

9520 LET y$=yS(2 TO LEN y$)+yS(D 
9530 LET x$=x§ (2 TO LEN x$)+x$(l) 

9540 PRINT INK 4;AT 2,0;z$(l TO 32) 

9550 PRINT INK 5;y$(l TO 32) 

9560 PRINT INK 6;x$(l TO 32) 

9570 IF INKEYSO"" THEN GO TO 9600 
9590 GO TO 9510 


28 







9600 BEEP 2,20 
9900 RETURN 


Tombola 




16/48K 


tu 


Ci stiamo sempre più allontanando 
dalle antiche tradizioni. Proviamo 
a fare un passo indietro, giochiamo 
a "TOMBOLA “! Non serve nessuno 
per estrarre i numeri, ci pensa il no¬ 
stro fidato Spectrum (lui non ba¬ 
rai). 

L'unica cosa che occorre sono le 
cartelle, che dovrebbero esserci, 
magari in solaio, ma senz'altro ci 
sono. 

Passiamo ora alla descrizione del 
programma, che senz'altro salve¬ 
remo con - SAVE " TOMBOLATA“ 
LINE 7 . 

In pratica il programma presenta 2 
sezioni distinte: la prima è la fase 
della ricerca del numero e della sua 


visualizzazione nel tabellone lumi¬ 
noso,- la seconda realizza invece 
l'ingrandimento del numero estrat¬ 
to. 

Problemi non dovrebbero esserce¬ 
ne, comunque raccomando di fare 
attenzione poiché un solo errore 
potrebbe anche accendere il nu¬ 
mero sbagliato sul tabellone, con 
conseguente caos tra i giocatori 
che non sapranno più quali sono i 
numeri esattamente usciti. 

Non ho spiegato come si gioca a 
tombola perché lo ritengo super¬ 
fluo, visto che gioco più tradizio¬ 
nale di questo non c'è. 

Buon divertimento. 


1 REM *TOMBOLATA* 1984 by Franzini Luciano 

2 PRINT AT 10,5; FLASH 1;"FERMA IL REGISTRATORE" 

5 PAUSE 200 

6 PAPER 6: CLS : BORDER 6: PAPER 4: LET al=0 

7 PRINT AT 2,0; PAPER 7; INK 1; BRIGHT 1;" TOMBOLATA 


9 LET A2=1 
10 DIM n(90) 

26 PRINT 

30 FOR t=0 TO 80 STEP 10 
40 FOR i=l TO 10 
45 LET A2=A2+0.5 
50 PRINT TAB {(i*3)-2);i+t; 

60 NEXT i 
62 PRINT " 

65 BEEP .1,A2 
80 PRINT 
90 NEXT t 

95 PRINT #0; INK 2; BRIGHT 1;"PREMI ENTER PER ESTRARRE UN NUM.PREMI 
S PER UNA NUOVA TOMBOLATA." 








96 
99 
100 
110 
120 
1 40 
150 
160 
170 
200 
201 


204 

210 

1000 

1050 

1064 

1065 
1075 
1077 

4000 

4001 

4002 

4004 

4005 
4010 
4020 
4025 
4030 
4040 
4050 
4060 
4070 


4080 

4085 

4090 

4091 
4093 
4110 
4120 


DRAW 0,175: DRAW 255,0: DRAW 0,-174: DRAW -255,0 

PAUSE 0 

RANDOMIZE 

LET q=INT (RND*90)+1 
IF n(q)=1 THEN GO TO 110 
GO SUB 4000: GO SUB 1000 
LET X = INT (q/10) 

IF q/10=INT (q/10) THEN LET x=x-l 
LET y=q-(x*10) 

PRINT AT x+4,3*y-2; PAPER 6; BRIGHT l;q 

IF al*89 THEN PRINT AT 20,0;"SONO GIÀ' USCITI TUTTI I NUMERI 1": 
PRINT |0;AT 1,0;“ 

FOR t-1 TO 1000: NEXT t: RUN 6 

LET al=al+1 
GO TO 110 
LET n(q)*1 
PAUSE 0 

IF INKEY$="s" OR INKEY$“"S" THEN RUN 6 
IF INKEYSOCHRS 13 THEN GO TO 1050 
BEEP .1,18 
RETURN 

FOR t*l TO 6 

PRINT AT 13+t,l; PAPER 6;" " 

NEXT t 
LET d=0 

LET c=PEEK 23606+256*PEEK 23607 
LET x$=STR$ q 

IF LEN X$=l THEN LET X$=“ “+xS 

FOR t=0 TO 1 

LET pi=c+CODE x$(t+1)*8 

FOR g=0 TO 7 

LET p=PEEK (pl+g) 

FOR i=0 TO 7 

IF P/20INT (p/2) THEN PRINT AT 13+g,14-i+(t*8); INK 2; 

BRIGHT 1 ; "{SG8}" 

LET p=INT (p/2) 


NEXT i 

NEXT g: NEXT t 
BEEP .5,23 
BEEP .6,19 
POKE 23692,-1 
RETURN 
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Guida per l’input dei programmi 
sullo ZX Spectrum 


Come è noto, lo Spectrum è provvisto di 
2 serie di tasti srafici. una prima sene di 1 6 
caratteri grafici predefiniti (i tasti numerici 
da 1 a 8 e gli stessi "shi flati") e una serie 
di caratteri definibili dall'utente nell'ambi¬ 
to di un programma de lettere da A a U) 
In entrambi i casi, per ottenere i caratteri 
desiderati occorre entrare in modo grafico 
(cursore contrassegnato dalla lettera 0 
lampeggiante) premendo contemporanea¬ 
mente i tasti CAPS SHIFT e 9 
Nei nostri listati i caratteri grafici prede finiti 
sono indicati da una G e dal numero corri¬ 
spondente al tasto che occorre digitare, il 
tutto racchiuso tra due parentesi graffe 
A esempio (G4j significa che occorre digi¬ 
tare il tasto 4, con il cursore in modo grafi¬ 
co. 

Analogamente la codifica 5G, seguita da 
un numero da 1 a 8, significa che occorre 
digitare il relativo tasto numerico premen¬ 
do contemporanemaente il tasto CAPS 
SHIFT. 

Ad esempio quando si trova la codifi¬ 


ca (SG2), occorre premere II tasto 2 con¬ 
temporaneamente al tasto CAPS SHIFT, ov¬ 
viamente con il cursore in modo grafico. 
In entrambi i casi precedenti, quando un 
simbolo grafico deve essere digitato più 
volte, i caratteri GoSG della codifica sono 
preceduti da un numero che specifica 
quante volte va premuto il tasto grafico in¬ 
dicato 

Così ad esempio (8G5) significa che il ta¬ 
sto grafico 5 va digitato 8 volte,- analoga¬ 
mente (4SG1 ) significa che il tasto grafico 
1, premuto insieme a CAPS SHIFT, deve 
essere battuto 4 volte I caratteri grafici de¬ 
finibili (le lettere da AaU in modo grafico) 
hanno una codifica semplificata.- la lettera 
corrispondente, sottolineata 

Quando in un listato viene presentata, ad 
esempio, una A sottolineata, occorre en¬ 
trare in modo grafico (al solito premendo 
contemporaneamente i tasti CAPS-SHIFT e 
9) e quindi digitare semplicemente il tasto 
che contrassegna la lettera A 


Quando leggete 


Premete 


(GU 

ET? 

■ 

f G2 ) 

1» FI 

■ 

(G3) 

EH 

■ 

(G4 ) 

ETi 

■ 

(G5) 

m 

1 

(G6) 

E!B 

s 

{ G7 ) 

L. FI 


(G8) 

L U 

□ 

(SG1]_ 

--m r rp 

k 

• iyi 

=3: li fi 

J 

ls«3l K5 

ic li - 

■ 

i) BS 


p 

[SCSI HE 

■nn eti 

1 

( SG6 ) 

mi. w 


(SG7) . 

U J Q FI 

■ 

(SG8I 

ElJEXJ 

■ 


Vedrete 










































JACKSON 



Le strenne 
firmate Jackson 



ROMANZO ROSA CON IL C64 

Macc o Bucce» Francesco Divini 

SfeàniDeiffito® 

Se» un tipo romantico? Ti 
piacciono i romanzi? 

Il computer, attraverso un 
simpatico programma scritto per 
Commodore 64, collabora con 
te e con ... nella costruzione di 
un Vostro 'Romanzo rosa'. 

Con floppy disk. 

Cod. Caio Lire 40.000 


IMPARA IL BRIDGE 
CON IL COMPUTER 

Claudio Trinchino 

Imparare »l bridge con l'aiuto del 
computer diventa un piacevole 
passatempo Un programma 
interattivo elaborato su IBM e 
su C 64 ti conduce passo passo 
a diventare _ quasi un esperto 
di bndge. Poi con un po' di 
appi*a/one ... 

Con floppy disk per C 64 
Cod.CCìÌ9 Lire 50.000 
Con floppy disk per IBM 
Cod. CC239 Lire 50.000 


Puoi trovare le strenne Jackson 
nelle migliori librerie 


COMPUTERGRAPHIA 

I ta” Scoti 

In 176 meravigliose e 

coloratissime pagine, uno 
splendido viaggio attraverso le 
immagini elaborate con le 
tecniche più avazate di 
computer-graphics 
Cod. 802P Lire 40.000 


COFANETTI 
SPEEDY COMPUTER 

L'informatica attraverso • testi e 
le immagini studiate per i 
bambini può diventare facile 
anche per .. mamma e papa. 
Cod. CU001 Lire 45.000 
Cod. CU002 Lire 45.000 


COMPUTER IMAGE 

Mauro Salvem ini 

Chi è ancora convinto che il 

computer imiti le possibilità 
creative de*'uomo, può scorrere 
nel libra le splendide immagini 
di computer ai a colon e 
convincersi del contrario. 

Cod. 0231 Lire 40.000 



